home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Online / Apache / stophttpd < prev    next >
Encoding:
Text File  |  1997-12-08  |  451 b   |  17 lines
  1. /* stophttpd 1.0 */
  2. opened = OPEN( pidfile, 'T:httpd.pid', 'R' ) 
  3. IF opened == 1 THEN DO 
  4.   DO WHILE ~EOF( pidfile ) 
  5.       line = READLN( pidfile ) 
  6.       line = SUBSTR( line, 6 ) 
  7.       pid = STRIP( line, 'T', ']' ) 
  8.     say 'Shutting down httpd server ...' 
  9.     ADDRESS COMMAND 'Break' '>NIL:' pid 'C' 
  10.       LEAVE 
  11.     END 
  12.   CALL CLOSE( pidfile ) 
  13.     ADDRESS COMMAND 'C:Delete' '>NIL:' 'T:httpd.pid' 
  14.   END 
  15. ELSE DO 
  16.  SAY 'No process ID for httpd found.' 
  17.  END